unit U_SevkiyatHesabiSec;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, ADODB, StdCtrls, Buttons, ExtCtrls,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxControls, cxGridCustomView, cxGrid;

type
  TFrmSevkiyatHesabi = class(TForm)
    adoSevk: TADOQuery;
    DsSevk: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Kodu,Aciklama:string;
  end;

var
  FrmSevkiyatHesabi: TFrmSevkiyatHesabi;
  CariId:integer;

implementation
    uses data,ana1;
{$R *.dfm}

procedure TFrmSevkiyatHesabi.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 
  action:=CaFree;
  FrmSevkiyatHesabi:=nil;
end;

procedure TFrmSevkiyatHesabi.FormCreate(Sender: TObject);
begin
Kodu:='';
Aciklama:=''; 
end;

procedure TFrmSevkiyatHesabi.BitBtn1Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.
